N88-BASIC(86) サンプルプログラム:サウンド機能(拡張機能)

100 CLEAR ,&H5E00
110 GOSUB *BEGIN :GOSUB *MPLAY
120 ON PLAY (3,0) GOSUB *MPLAY
130 PLAY ON
140   X=RND*639:Y=RND*399:C=(RND*100 MOD 7)+1
150   CIRCLE(X,Y),RND*20,C
160   PAINT (X,Y),(RND*100 MOD 7)+1,C
170 GOTO 140
180 REM
190 *MPLAY
200 PLAY STOP:CLS 3
210 PLAY A$,B$,B$
220 PLAY B$,A$,B$
230 PLAY B$,B$,A$
240 PLAY ON
250 RETURN
260 *BEGIN
270 CLS 3
280 CONSOLE 0,25,0,1
290 SCREEN 3,0
300 PLAY ALLOC 255,255,255
310 INI$="MB@55@V100"
320 PLAY INI$,INI$,INI$
330 A1$=""TI60O4L8C4CC4DE4EE4ED4CD4EC4CO3G4RO4E4."
340 A2$="EEFG4GG4GF4EF4GE4.R4GE2RGE2RGER8GER8GE4.R4"
350 A$=A1$+A2$
360 B$="R2R2R2R2R2R2"
370 RETURN

.
    
チャンネル番号3のサウンドバッファ内の未演奏音楽情報が0以下
になったときに*MPLAYに飛ぶように宣言。

140〜170行の間でPLAY割り込み
を待っている。


演奏ルーチン。


演奏。



初期化ルーチン。


サウンドバッファの確保および初期化、チャンネル1〜3の
サウンドバッファには255バイトが割り当てられ、
他のサウンドバッファは0バイトとなる。
チャンネル1〜3の初期化設定を行う。
演奏データ。



.